home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SXP683.ARC / L-U (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.5 KB  |  274 lines
  1. 0 POKE53280,.:POKE53281,.:PRINT"[147][151]    ";:SYS49230:GOTO100
  2. 1 GOSUB2:GOTO4
  3. 2 GOTO1610
  4. 3 GOTO22997
  5. 4 GOTO1740
  6. 5 GOSUB2:GOTO3
  7. 6 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
  8. 7 A$=A$+" > ":GOTO1
  9. 8 A$=" "+R$+"":GOTO2
  10. 9 A$=R$+A$:GOTO2
  11. 10 K9$=MID$("[202]AN[198]EB[205]AR[193]PR[205]AY[202]UN[202]UL[193]UG[211]EP[207]CT[206]OV[196]EC",(VAL(MID$(K$,3,2))-1)*3+1,3)
  12. 11 K$=LEFT$(K$,2)+"-"+K9$+"-"+RIGHT$(K$,2):RETURN
  13. 12 S=54272:POKES+4,64:POKES+3,9:POKES+1,8:POKES+5,12:POKES+6,15:POKES+4,65:RETURN
  14. 13 CLOSE4:CLOSE3:CLOSE2:CLOSE1:RETURN
  15. 14 SYS49179,A$:RETURN
  16. 15 GOTO1650
  17. 19 CLOSE2:OPEN2,8,2,"0:USER LOG,S,A":RETURN
  18. 20 AS$=A$:A$="<[205]ORE?>":GOSUB2:GOSUB25:A$="":FORX=1TO7:A$=A$+CHR$(20):NEXT
  19. 21 A$=A$+"":FC=.:GOSUB2:A$=AS$:RETURN
  20. 25 GOSUB40:I$="N":POKE703,.:SYS49221,I$:D=-1:IFPEEK(703)>.THENI$="":Z=1:RETURN
  21. 26 GOSUB6:IFFC=FWANDFWTHENRETURN
  22. 27 IFI$=R$ORI$="[217]"THENA$="[217]ES":D=1:GOTO2
  23. 28 IFI$="[206]"THENA$="[206]O":D=.:GOTO2
  24. 29 GOTO25
  25. 30 A$="":SYS49194:S=ST:IFPEEK(685)THENA$=LEFT$(X$,PEEK(685)):SYS49200,A$
  26. 31 SYS49239:RETURN
  27. 33 A$="":GOSUB37:A$=X$+"":SYS49227,A$:GOSUB37:A$=LEFT$(A$,PEEK(2025)-1):RETURN
  28. 34 A$="[211]TAND BY":GOTO9
  29. 37 PRINT#1,M$CHR$(G)CHR$(H)Y$:INPUT#1,M1,M1$,M1,M1:RETURN
  30. 40 T2=TI+WT:IFT2>T-1THENT2=T2-T
  31. 41 T2=T2-INT(T2/60^3)*60^3:M5=INT(T2/60^2):M5$=MID$(STR$(M5),2)
  32. 42 M5=.:IFLEN(M5$)>1THENM5=16*VAL(LEFT$(M5$,1))
  33. 43 MM=VAL(RIGHT$(M5$,1)):M5=M5+MM:POKE702,M5:RETURN
  34. 50 H=INT(X/C):G=INT(X-C*H):RETURN
  35. 72 H=INT(X/C):G=X-H*C:RETURN
  36. 74 GOSUB13:OPEN1,8,15,"I0:":OPEN3,8,3,FR$:RETURN
  37. 78 A$=MID$(STR$(A),2):IFLEN(A$)=1THENA$="0"+A$
  38. 79 RETURN
  39. 80 SYS49224:B$="":FORX=1094TO1101:B$=B$+CHR$(PEEK(X)):NEXT:SYS49230:RETURN
  40. 96 FC=.:IFPTHENRETURN
  41. 97 A$="    [[211]]TOP    [[195]]ONTINUE    [[193]]BORT":GOTO9
  42. 100 IFPEEK(1064)=32THEN100
  43. 101 OPEN5,2,.,CHR$(6):C=256:MP=PEEK(742)+PEEK(743)*C:CP=PEEK(719):B=255
  44. 106 I$="":FORX=1070TO1073:A$=CHR$(PEEK(X)):I$=I$+A$:NEXT
  45. 107 IFLEFT$(I$,1)=" "THENI$=MID$(I$,2)
  46. 108 GOSUB5900
  47. 120 R$=CHR$(13):J$="[211][217][211][207][208]":V$=R$+"[201]NVALID ":W$="[193]BORTED":C$=CHR$(160):POKE1023,B
  48. 160 Y$=CHR$(.):M$="P"+CHR$(99):WT=10800:FR$="0:[211]YSTEM [213]SERS":Q$=CHR$(34)
  49. 170 CLOSE9:OPEN9,8,2,"0:CUSTOM":INPUT#9,PS$:INPUT#9,A$
  50. 180 LF=VAL(A$):INPUT#9,DR$:DR=VAL(DR$):IFDR=-1THEN195
  51. 185 DIMDR$(4,DR)
  52. 190 FORX=.TODR:FORY=1TO3:INPUT#9,DR$(Y,X):NEXTY,X:FORX=.TODR:DR$(2,X)=DR$(2,X)+":":NEXT
  53. 195 INPUT#9,MG$:MG=VAL(MG$):DIMMG$(3,MG):FORX=.TOMG:FORY=.TO3:INPUT#9,MG$(Y,X):NEXTY,X
  54. 197 FORX=.TOMG:MG$(1,X)=MG$(1,X)+":":NEXT
  55. 200 INPUT#9,NC$:NC=VAL(NC$):FORX=.TONC:INPUT#9,C$(X):NEXT:MD=VAL(MG$(2,.))
  56. 205 P$=MG$(1,.):INPUT#9,A$:BD=VAL(A$):INPUT#9,BD$,UM$,PG$,A$,LD$
  57. 206 UM=VAL(UM$):LD=VAL(A$):PG=VAL(PG$):INPUT#9,SU$,NB$,A$,CG$:EZ=VAL(A$)
  58. 207 INPUT#9,PD$,P1$,P2$:P1=VAL(P1$):DIMTB$(VAL(NB$)+7),P1$(P1)
  59. 208 FORX=.TOP1:INPUT#9,P1$(X):NEXT:X=8
  60. 209 INPUT#9,TB$(X):X=X+1:IFST=.THEN209
  61. 220 CLOSE9:OPEN9,8,9,"0:STATS
  62. 225 [129]X[178].[164]MG:[132]9,SY$(X),R4$(X),AL$(X),RF$(X):[130]:[132]9,US$,OL$
  63. 240 [132]9,YV$,FB$,BF$:MB[178][197](MG$(3,.)):YV[178][197](YV$):[139]DR[178][171]1[167]260
  64. 250 [129]X[178].[164]DR:[132]9,DR$(4,X):[130]
  65. 260 [160]9:SY[178][197](SY$(.)):N[178][197](AL$(.)):R[178][197](RF$(.)):R4[178][197](R4$(.)):U[178]8
  66. 265 [139]TB$(LD)[178]"0"[167][151]53265,[194](53265)[176]16:[160]1:[159]1,LD,15,"UI+":[160]1
  67. 266 [141]8
  68. 270 P$[178]P$[170]":":BD$[178]BD$[170]":":LD$[178]LD$[170]":":NB[178][197](NB$):NB$[178]"":DD$[178]"0:
  69. 280 POKE650,128:T=5184E3:A$="                                        "
  70. 290 FORX=1TO6:X$=X$+A$:NEXT:X$=X$+"               ":FORX=1TO16:SS$=SS$+C$:NEXT
  71. 291 OPEN3,8,3,"0:INDEX
  72. 292 A$[178]X$[170]"":[158]49227,A$:A$[178][200](A$,[194](2025)[171]1):[160]3:PU$[178]A$
  73. 300 US[178][197](US$):OL[178][197](OL$):WD[178][194](687)
  74. 320 E$[178]"":[129]X[178].[164]1:A[178]([194](710[170]X)):[141]78:E$[178]E$[170]A$:[130]
  75. 350 DY$[178][202]([196]([194](999)),2):[139][195](DY$)[178]1[167]DY$[178]"0"[170]DY$
  76. 360 Z$[178][202]([196]([194](1000)),2):[139][195](Z$)[178]1[167]Z$[178]"0"[170]Z$
  77. 370 Y2[178][194](1001):Y3[178][194](1002):YR[178]Y3[172]C[170]Y2:YR$[178][202]([196](YR),2)
  78. 380 D$[178]DY$[170]Z$[170][201](YR$,2)
  79. 390 F1[178]1:[141]2160:F1[178].
  80. 393 [158]49224:B$[178]"":[129]X[178]1094[164]1101:B$[178]B$[170][199]([194](X)):[130]:[158]49230
  81. 395 E[178][197]([200](B$,2))[172]60[174]3[170][197]([202](B$,4,2))[172]60[174]2
  82. 400 E[178]E[170]([197]([201](B$,2))[170]1)[172]60:E[178]TI[171]E
  83. 405 N$[178]"":[129]X[178]971[164]995:A$[178][199]([194](X)):[139]A$[178][199](.)[167]407
  84. 406 N$[178]N$[170]A$:[130]X
  85. 407 [129]X[178]1[164]25:[139][201](N$,X)[178][201](X$,X)[167][130]
  86. 408 N$[178][200](N$,26[171]X)
  87. 409 [139]N$[179][177]J$[167][141]6100:[137]22997
  88. 410 I$[178]PS$:[141]6:CW$[178]I$:FW[178]20
  89. 411 CS[178]B:SC[178]1:CN[178]1:P[178]1:WD[178]38:[137]22997
  90. 1560 [151]707,.:A[178][198](A$):[139]A[178]136[167]1910
  91. 1590 [139]A[178]137[176][194](702)[178]B[167][142]
  92. 1592 [139]A[178]135[167][141]6000:A$[178]Y$:[139]DE[167]Z[178]1:[142]
  93. 1593 [139]A[178]139[167]E[178]TI:K[178]E:I$[178]"(null)":[129]X[178]56587[164]56584[169][171]1:[151]X,.:[130]:X[178][194](56584):[142]
  94. 1600 A$[178]AS$:[137]1820
  95. 1610 [161]#5,K9$:C9[178].:H$[178]"":[139]A$[178]""[167]A$[178]" "[170]R$[170]"
  96. 1615 SYS49203,A$:SYS49239
  97. 1620 IFRIGHT$(A$,1)<>""ANDSK=.THEN2840
  98. 1630 RETURN
  99. 1650 U=BD:DD$=BD$
  100. 1670 GOSUB13:OPEN1,U,15:OPEN2,U,2,DD$+F$
  101. 1680 POKE685,.:POKE693,.:GOSUB8:INPUT#1,A,M1$,M1,M1:IFATHENRETURN
  102. 1700 GOSUB30:IFFWTHENFC=FC+1:IFFC=FWTHENGOSUB20:IFI$="[206]"THENS=64:GOTO1720
  103. 1715 GOSUB2
  104. 1720 IFC9ORS=64THENCLOSE15:CLOSE2:A=.:FC=.:RETURN
  105. 1730 GOTO1700
  106. 1740 POKE694,.:F1=1:GOSUB2160:F1=.:IFJ9=1ANDJ=.THENI$=C$:A$=C$:GOTO2
  107. 1800 GOSUB40:IFPATHENGOSUB12
  108. 1810 POKE703,.:IFO=.THENO=38
  109. 1820 A$=LEFT$(X$,O):SYS49215,A$:IFJ=1ANDPEEK(707)=136THENPOKE707,.:GOTO1820
  110. 1830 IFPEEK(707)>.THENAS$=A$:A$=CHR$(PEEK(707)):GOTO1560
  111. 1840 IFPEEK(703)>.THENZ=1:I$=C$:RETURN
  112. 1850 I$=A$:I$=LEFT$(I$,PEEK(694)):IFPEEK(694)=.THENI$=C$
  113. 1870 O=.:RETURN
  114. 1910 IFJ9=1THENK=TI:J9=.:RETURN
  115. 1920 J9=1:I$=C$:A$=C$:GOTO2
  116. 1930 K=TI:J9=2:GOTO3
  117. 1940 POKE54296,.:PA=.:A$="[195]HAT [205]ODE"+R$+R$+"":GOSUB9:POKE690,PEEK(729):GOTO2550
  118. 2060 A$="[195]URRENT TIME IS "+LEFT$(TI$,2)+":"+MID$(TI$,3,2)+":"+RIGHT$(TI$,2)
  119. 2070 K$=D$:GOSUB10:A$=A$+"  "+K$:GOSUB9:IFTI<ETHENE=E-T
  120. 2080 L2=TI:TH=INT((L2-E)/60^3):L2=L2-60^3*TH:TM=INT((L2-E)/60^2):L2=L2-60^2*TM
  121. 2090 TS=INT((L2-E)/60):IFTH<10THENTH$="0"+RIGHT$(STR$(TH),1):GOTO2110
  122. 2100 TH$=RIGHT$(STR$(TH),2)
  123. 2110 IFTM<10THENTM$="0"+RIGHT$(STR$(TM),1):GOTO2130
  124. 2120 TM$=RIGHT$(STR$(TM),2)
  125. 2130 IFTS<10THENTS$="0"+RIGHT$(STR$(TS),1):GOTO2150
  126. 2140 TS$=RIGHT$(STR$(TS),2)
  127. 2150 A$=" [195]ONNECT [212]IME = "+TH$+":"+TM$+":"+TS$:GOTO5
  128. 2160 TC=56328:X9=PEEK(TC+3):A%=(X9AND16)/16+48:B%=(X9AND15)+48
  129. 2170 IFX9=>128ANDVAL(CHR$(A%)+CHR$(B%))<12THENA%=A%+1:B%=B%+2
  130. 2180 IFB%>57THENA%=A%+1:B%=B%-10
  131. 2190 IFX9<128ANDA%=49ANDB%=50THENA%=48:B%=48
  132. 2200 X9=PEEK(TC+2):C%=(X9AND240)/16+48:D%=(X9AND15)+48
  133. 2210 X9=PEEK(TC+1):E%=(X9AND240)/16+48:F%=(X9AND15)+48
  134. 2220 X9=PEEK(TC):TI$=CHR$(A%)+CHR$(B%)+CHR$(C%)+CHR$(D%)+CHR$(E%)+CHR$(F%)
  135. 2225 IFTI-3>4E6THENE=E+T
  136. 2230 IFF1=1THENRETURN
  137. 2240 IFTI<ETHENE=E-T
  138. 2250 L2=TI-E:IFL2>TTHENE=E+T
  139. 2252 IF(PEEK(MP)AND16)<>CPANDPEEK(706)=.THENZ=1:RETURN
  140. 2253 L7=INT(L2/60^3):L8=INT((L2-L7*60^3)/60^2):L9=INT((L2-L7*60^3-L8*60^2)/60)
  141. 2254 L4=L7*60+L8:IFL4>=EZANDSC=.THENZ=1:RETURN
  142. 2255 IFL4>=EZ-10ANDSC=.THENGOSUB2750:A$="[195]ONNECT [212]IME > "+T9$:GOSUB9
  143. 2260 IFVAL(TI$)<10000ANDPEEK(1018)<>1THEN2290
  144. 2270 IFTI$>"010000"THENPOKE1018,.
  145. 2280 RETURN
  146. 2290 POKE1018,1:IFDY$="28"ANDZ$="02"THEN2420
  147. 2300 IFDY$="29"ANDZ$="02"THENDY$="01":Z$="03":GOTO2440
  148. 2310 IFDY$="31"AND(Z$="01"ORZ$="10"ORZ$="03"ORZ$="05"ORZ$="07")THEN2360
  149. 2320 IFDY$="31"AND(Z$="08"ORZ$="12")THEN2360
  150. 2330 IFDY$="30"AND(Z$="09"ORZ$="11"ORZ$="04"ORZ$="06")THEN2360
  151. 2340 DY$=MID$(STR$(VAL(DY$)+1),2):IFLEN(DY$)=1THENDY$="0"+DY$
  152. 2350 GOTO2440
  153. 2360 TJ=VAL(Z$)+1:IFTJ<10THENLT=1:GOTO2380
  154. 2370 LT=2
  155. 2380 DY$="01":Z$=RIGHT$(STR$(TJ),LT)
  156. 2390 IFLT=1THENZ$="0"+Z$
  157. 2400 IFZ$="13"THENYR$=RIGHT$(STR$(VAL(YR$)+1),4):Z$="01"
  158. 2410 GOTO2440
  159. 2420 YR=VAL(YR$):Y2=YR/4:YR=INT(YR/4):IFYR=Y2THENDY$="29":GOTO2440
  160. 2430 DY$="01":Z$="03"
  161. 2440 POKE999,VAL(DY$):POKE1000,VAL(Z$):YR=VAL(YR$):Y3=INT(YR/C)
  162. 2450 Y2=YR-(Y3*C):POKE1001,Y2:POKE1002,Y3:D$=DY$+Z$+RIGHT$(YR$,2)
  163. 2460 K$=D$:GOSUB10:GOSUB19:A$=" "+R$+"[196]ATE: "+K$+R$+" ":PRINT#2,A$:CLOSE2:IFDR=-1THEN13
  164. 2470 OPEN2,8,2,"0:LU,S,A":PRINT#2,A$:CLOSE2:OPEN2,8,2,"0:LD,S,A":PRINT#2,A$:GOTO13
  165. 2480 A$="[212]IME [197]XPIRED":GOSUB9:J9=.:POKE1023,253:GOSUB2510:GOTO3675
  166. 2510 FORX=8TONB+7:CLOSE1:OPEN1,X,15:CLOSE1
  167. 2520 IFSTTHEN2540
  168. 2530 OPEN1,X,15,"I0:":CLOSE1
  169. 2540 NEXT:RETURN
  170. 2550 POKE694,.:POKE702,B:SYS49215,X$
  171. 2560 IFPEEK(707)=.THEN2550
  172. 2570 A$=CHR$(PEEK(707)):GOSUB1560:IFJ9=.ORZTHENGOSUB8:GOTO1930
  173. 2580 GOTO2550
  174. 2750 IFTI<ETHENE=E-T
  175. 2760 L2=TI:TH=INT((L2-E)/60^3):L2=L2-60^3*TH:TM=INT((L2-E)/60^2):L2=L2-60^2*TM
  176. 2770 TS=INT((L2-E)/60):IFTH<10THENTH$="0"+RIGHT$(STR$(TH),1):GOTO2790
  177. 2780 TH$=RIGHT$(STR$(TH),2)
  178. 2790 IFTM<10THENTM$="0"+RIGHT$(STR$(TM),1):GOTO2810
  179. 2800 TM$=RIGHT$(STR$(TM),2)
  180. 2810 IFTS<10THENTS$="0"+RIGHT$(STR$(TS),1):GOTO2830
  181. 2820 TS$=RIGHT$(STR$(TS),2)
  182. 2830 T9$=TH$+":"+TM$+":"+TS$:RETURN
  183. 2840 SK=.:K=TI:IFK9$>""THENA$=K9$:GOTO2870
  184. 2850 GETA$:IFA$>""THEN2870
  185. 2860 GET#5,A$:IFA$>""THEN2870
  186. 2865 IF(PEEK(673)AND1)=.THENRETURN
  187. 2867 GOTO2850
  188. 2870 K=TI:Z=.:A=ASC(A$):IFA>127THENA$=CHR$(A-128)
  189. 2875 IFA$=CHR$(131)THENA$="
  190. 2880 [139]A$[178]""[176]A$[178]""[167]H$[178]A$:C9[178]1:[142]
  191. 2890 [139]A$[178][199](83)[176]A$[178][199](115)[167]A$[178]"<LEN>":SK[178]1:[141]2:[137]2960
  192. 2900 [137]2850
  193. 2960 [161]A$:[139]A$[177]""[167]2990
  194. 2970 [139]TI[171]K[177]WT[167]A$[178][199](65):Z[178]1:[137]2990
  195. 2980 [161]#5,A$:[139]A$[178]""[167]2960
  196. 2990 A[178][198](A$):[139]A[177]127[167]A$[178][199](A[171]128)
  197. 3000 [139]A$[178][199](65)[176]A$[178][199](97)[167][141]3055:C9[178]1:[142]
  198. 3010 [139]A$[178][199](67)[176]A$[178][199](99)[167]3055
  199. 3020 [137]2960
  200. 3055 A$[178][199](20):A$[178]A$[170]A$[170]A$[170]"":[141]2:SK[178].:[142]
  201. 3330 [141]74:FL[178].:X[178][181](US[173]2):N4[178]US:N3[178].
  202. 3335 [139][194](730)[167]X[178][194](730)
  203. 3360 H[178][181](X[173]C):G[178]X[171]C[172]H:[141]37:A$[178]X$[170]"":[158]49227,A$:[141]37
  204. 3370 A$[178][200](A$,[194](2025)[171]1):N9$[178][200](A$,[195](A$)[171]58)
  205. 3380 [139]N$[178]N9$[167][142]
  206. 3390 [139]FL[178].[175]N4[171]N3[178]1[167]X[178]N4:FL[178]1:[137]3360
  207. 3400 [139]FL[178]1[175]N4[171]N3[178]1[167][142]
  208. 3410 [139]N$[177]N9$[167]N3[178]X:X[178]X[170][181]((N4[171]X)[173]2):[137]3360
  209. 3420 N4[178]X:X[178]X[171][181]((X[171]N3)[173]2):[137]3360
  210. 3640 [160]14:[160]1:[159]1,8,15,"S0:STATS":[152]1,"I0:
  211. 3645 OPEN14,8,14,"0:STATS,S,W
  212. 3650 [129]X[178].[164]MG:[152]14,SY$(X);R$;R4$(X);R$;AL$(X);R$;RF$(X):[130]
  213. 3660 [152]14,[196](US);R$;Q$[170]OL$;R$;[196](YV);R$;FB$;R$;BF$:[139]DR[178][171]1[167]3673
  214. 3670 [129]X[178].[164]DR:[152]14,DR$(4,X):[130]
  215. 3673 [160]14:[160]1:[142]
  216. 3675 [151]54296,.:A$[178]"(null)NE MOMENT...":[141]9
  217. 3676 LP$[178]"":F$[178]"BBS6*
  218. 3677 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)AND239:CLOSE1:OPEN1,LD,15,"UI-":CLOSE1
  219. 3680 PRINT"[147]NEW"R$"LOAD"Q$;LD$;LP$;F$;Q$;",";LD;":"R$"RUN
  220. 3690 [151]198,3:[151]631,13:[151]632,13:[151]633,13:[153]"":A$[178]N$:[141]14:[128]
  221. 5900 BR[178][197](I$):[151]659,6:X[178]1022730[173]BR:[141]50
  222. 5905 [139]BR[178]300[176]BR[177]1199[167][158]49242:[137]5910
  223. 5906 [158]49245
  224. 5910 [151]176,G:[151]177,H:[151]665,G
  225. 5920 [151]666,H:X[178]1022730[173]BR[173]2[171]100:[141]50:[151]661,G:[151]662,H
  226. 5930 [139][195](I$)[178]3[167]I$[178]"0"[170]I$
  227. 5940 [129]X[178]1[164]4:[151]X[170]964,[198]([202](I$,X,1)):[130]:[142]
  228. 6000 A$[178]"LOGOFF USER? ":B$[178]A$:[141]14
  229. 6010 [161]A$:[139]A$[178]""[167]6010
  230. 6020 [139]A$[178]"N"[167]A$[178]B$[170]"NO":[141]14:DE[178].:[142]
  231. 6030 [139]A$[178]"Y"[167]A$[178]B$[170]"YES":[141]14:DE[178]1:[142]
  232. 6040 [137]6010
  233. 6100 [141]3330:[141]13:ZL[178]G:ZH[178]H:ZR$[178]A$:BA$[178][201](A$,28):A$[178][200](A$,[195](A$)[171]28)
  234. 6105 XZ$[178][201](A$,30):FG[178][198]([202](XZ$,20,1)):XP[178](FG[175]31):FW[178][198]([202](XZ$,21,1))
  235. 6106 OC[178][198]([202](XZ$,22,1)):K3[178][198]([202](XZ$,23,1)):K4[178][198]([202](XZ$,24,1))
  236. 6108 AC[178][198]([202](XZ$,25,1)):T0[178][198]([202](XZ$,26,1))
  237. 6109 CJ$[178][202](XZ$,27,1):CJ[178][198]([202](XZ$,28,1))
  238. 6110 [151]701,((FG[175]32)[178].)[170]1:U1$[178][202](XZ$,13,7):RH[178][198]([200](U1$,1))[171]192
  239. 6120 RL[178][198]([202](U1$,2,1))[171]192:RN[178]RH[172]64[170]RL:RV[178][198]([202](U1$,5,1))[171]192
  240. 6130 RN[178]RN[170]RV[172]4096[170]1:CS[178][198]([202](U1$,6,1)):MN$[178][202](U1$,4,1)
  241. 6140 MN[178][198]([202](U1$,4,1))[171]192:FG[178][198]([202](U1$,3,1)):SC[178]((FG[175]4)[178].)[170]1
  242. 6150 CN[178]((FG[175]2)[178].)[170]1:P[178]((FG[175]1)[178].)[170]1:WD[178][198]([202](U1$,7,1)):[151]687,WD
  243. 6160 N5[178]((FG[175]8)[178].)[170]1:K$[178][202](XZ$,7,6):[139][194](690)[178]7[167]PA[178]1:[151]54296,15
  244. 6180 U1[178]((FG[175]16)[178].)[170]1:U2[178]((FG[175]32)[178].)[170]1
  245. 6190 U3[178]((FG[175]64)[178].)[170]1:U4[178]((FG[175]128)[178].)[170]1
  246. 6200 I$[178][200](XZ$,6):[141]6:CW$[178]I$:XZ$[178]CW$[170]D$[170]U1$
  247. 6210 G2[178]G:H2[178]H:[142]
  248. 22997 A$[178]N$:[141]14:WT[178]10800:[141]2160:[151]1023,1:J[178].:[139]Z[167]2480
  249. 22998 [141]13:A$[178]"(null)ATTERN (null)ATCH":O[178]25:[141]7:[139]Z[178]1[176]I$[178]"(null)"[167]3
  250. 22999 [139]J9[178]1[167]1940
  251. 23000 [139]I$[178]C$[167][158]65484:[151]1023,B:[137]3675
  252. 23001 [141]6:[139]I$[178]"?"[176]I$[178]"LEFT$VAL(null)(null)"[167]F$[178]"HELPU":[141]15:[137]3
  253. 23002 B$[178][200](I$,1):[139]I$[178]"ATN(null)(null)"[176]I$[178]"*"[167]I$[178]"ATN
  254. 23003 GOSUB74:IFI$="[193]"THENPN=1:GOTO23049
  255. 23004 IFB$<"[193]"ORB$>"[218]"THENA$=V$+"[206]AME":GOSUB2:GOTO3
  256. 23005 WH=(ASC(B$)-192)*2
  257. 23006 WS=ASC(MID$(PU$,WH-1,1)):WI=ASC(MID$(PU$,WH,1))
  258. 23007 IFWS=.THENWH=WH+2:IFWH<51THEN23006
  259. 23008 IFWS=.THENA$="[206]O MATCHES":GOSUB9:GOTO3
  260. 23010 FL=.:N3=.:X=INT(WI-(WS/2)):N4=WI
  261. 23011 GOSUB72:A$=X$+"":GOSUB37:SYS49227,A$:GOSUB37:A$=LEFT$(A$,PEEK(2025)-1)
  262. 23012 N2$=LEFT$(A$,LEN(I$)):SYS49239:IFN3=N4THENPN=X:GOTO23049
  263. 23014 IFFL=.ANDN4-N3=1THENX=N4:FL=1:GOTO23011
  264. 23016 IFFLANDN4-N3=1THENPN=X:GOTO23049
  265. 23018 IFI$>N2$THENN3=X:X=X+INT((N4-X)/2):GOTO23011
  266. 23020 N4=X:X=X-INT((X-N3)/2):GOTO23011
  267. 23049 GOSUB96:A$="[213]SER'S [206]AME                [204]AST [207]N":GOSUB2:I$="":FORQ=PNTOUS
  268. 23050 H=INT(Q/C):G=Q-(C*H):X0$=X$+"":GOSUB37:SYS49227,X0$:GOSUB37
  269. 23060 X0$=LEFT$(X0$,PEEK(2025)-1):SYS49239:A$=LEFT$(X0$,LEN(X0$)-58)
  270. 23075 K$=LEFT$(RIGHT$(X0$,52),6):GOSUB10:A$=A$+LEFT$(X$,25-LEN(A$))+" "+K$
  271. 23076 IFFWTHENFC=FC+1:IFFC=FWTHENGOSUB20
  272. 23077 ON-(I$<>"[206]")GOSUB2:IFI$="[206]"ORC9ORZTHENQ=US
  273. 23080 NEXT:Q=.:X0$="":PN=.:N2$="":GOSUB13:GOTO3
  274.